1 GOSUB5000 2 PRINT"[147]":POKE53281,0:POKE53280,0 3 FORI=1024TO1232:POKEI,220:NEXT:FORI=1233TO1284:READA:POKEI,A:NEXT 4 FORI=1285TO1457:POKEI,220:NEXT:FORI=1458TO1509:READA:POKEI,A:NEXT 5 FORI=1510TO1637:POKEI,220:NEXT:FORI=1638TO1689:READA:POKEI,A:NEXT 6 FORI=1690TO1871:POKEI,220:NEXT:FORI=1872TO2023:READA:POKEI,A:NEXT 7 FORI=55496 TO 55533:POKEI,8:NEXT 8 FORI=55536TO55575:POKEI,9:NEXT 9 FORI=55696TO55755:POKEI,8:NEXT 10 FORI=55756TO55789:POKEI,9:NEXT 11 FORI=55896TO55936:POKEI,8:NEXT 12 FORI=55936TO55976:POKEI,9:NEXT 13 FORI=56136TO56176:POKEI,8:NEXT 14 FORI=56176TO56215:POKEI,9:NEXT 15 FORI=56216TO56227:POKEI,2:NEXT 16 FORI=56228TO56243:POKEI,9:NEXT 17 FORI=56244TO56267:POKEI,2:NEXT 18 FORI=56268TO56283:POKEI,9:NEXT 19 FORI=56284TO56295:POKEI,2:NEXT 26 V=53248:S=54272:FORDE=1TO7STEP2:POKEV+DE,120:NEXT:POKEV,139:POKEV+4,208 27 FORDE=38144TO38147:POKEDE,0:NEXT 28 POKE38148,0:POKE38150,245:POKE38149,3:POKE38151,10 29 POKEV+21,10:POKEV+16,0:POKE53275,255 30 POKEV+40,1:POKEV+42,8 40 POKE38168,0:POKE38169,1:POKE38170,2:POKE38171,3:POKE38172,4:POKE38173,5 80 POKE38167,20 100 FORSC=STOS+23:POKESC,0:NEXTSC:POKES+24,15 110 POKES+5,0:POKES,0:POKES+1,17:POKES+6,101 120 POKES+12,0:POKES+7,0 130 POKES+19,0:POKES+14,0 140 POKE1944,208:POKE1945,210:POKE1946,212:POKE1947,214:POKE1948,216 150 SYS38238 200 WN=PEEK(38167) 210 SS=2*(19-(ABS(WN-20))) 250 FORDE=0TOSS:NEXT 280 IFWN=0ORWN=40THEN500 300 GOTO150 500 IFWN<>0THEN510 501 PRINT"[147][144]THE ALBINO VADRAK IS THE VICTOR!":POKE198,0:POKE53272,21 503 POKEV+33,15:POKEV+32,15:POKES+24,0:FORL=0TO999:NEXT:PRINT"PLAY AGAIN?" 505 GETA$:IFA$=""THEN505 507 IF A$="Y"THENRUN 508 POKEV+21,0:END 510 PRINT"[147]THE PIGMENTED VADRAK IS VICTORIOUS!":POKE198,0:POKE53272,21 513 POKEV+33,9:POKEV+32,9:POKES+24,0:FORL=0TO999:NEXT:PRINT"PLAY AGAIN?" 515 GETA$:IFA$=""THEN515 517 IF A$="Y"THENRUN 518 POKEV+21,0:END 5000 POKE53281,7:POKE53280,7:PRINT"[147] [175][175][175][175][175][175][175][175][175][175][175][175]" 5001 PRINT" [206][164][164][164][164][164][164][164][164][164][164][164][164][205]" 5002 PRINT" [214]* LAVA PIT *[146][214]" 5003 PRINT" [205][175][175][175][175][175][175][175][175][175][175][175][175][206]" 5005 PRINT" BY[157][157][157][157][157][157][157][157]SCOTT PETERSON" 5010 FORI=13824TO14592:READA:POKEI,A:NEXT:REM * READ CUSTOM CHAR & SPRITES 5014 POKE53272,29:POKE53281,2:POKE53280,2:PRINT"[147][158]" 5015 FORI=0TO20:POKE1629+I,234+I:POKE55901+I,7:NEXTI 5020 FORI=38238TO38889:READA:POKEI,A:NEXT:REM * READ MACHINE LANGUAGE PROGRAM 5030 RETURN 10000 DATA 239,010,000,000,000,000,000,000,239,215,005,001,000,000,000,000,223 10001 DATA 118,171,222,019,002,000,000,164,250,171,237,214,123,138,003,221,190 10002 DATA 247,210,170,217,205,141,135,115,220,066,154,097,036,074,161,090,149 10003 DATA 069,010,066,017,129,074,164,178,081,138,033,136,037,165,084,051,132 10004 DATA 072,131,048,128,085,170,146,101,016,136,000,000,042,213,032,128,000 10005 DATA 000,000,000,042,144,000,000,000,000,000,000,133,082,222,106,224,096 10006 DATA 160,128,181,194,069,133,066,129,129,129,171,214,050,042,022,028,020 10007 DATA 008,187,037,010,027,018,002,001,001,000,000,000,000,024,255,255,255 10008 DATA 000,000,000,000,060,255,255,255,000,000,000,000,126,255,255,255,000 10009 DATA 000,000,126,129,255,255,255,000,000,060,066,129,255,255,255,000,060 10010 DATA 066,129,129,255,255,255,036,066,129,129,066,255,255,255,009,128,036 10011 DATA 129,082,255,255,255,000,000,033,004,145,255,255,255,000,000,000,008 10012 DATA 084,255,255,255,000,000,000,000,000,255,255,255,255,255,255,255,255 10013 DATA 255,255,255,000,000,000,000,000,000,000,000,246,009,055,006,027,010 10014 DATA 009,025,187,164,216,040,224,016,144,136,059,149,135,233,198,099,197 10015 DATA 166,138,052,216,081,162,067,197,199,146,101,219,024,128,227,102,231 10016 DATA 170,117,206,193,048,239,086,165,234,119,163,195,002,041,237,082,016 10017 DATA 205,119,224,160,099,069,198,074,165,204,050,007,194,099,166,002,003 10018 DATA 002,122,166,180,072,048,000,000,000,000,000,000,000,255,056,124,186 10019 DATA 214,108,124,068,056,016,016,000,214,000,024,004,056,126,049,051,062 10020 DATA 112,096,224,000,252,038,034,060,044,038,098,227,063,126,068,112,248 10021 DATA 195,223,254,126,049,051,062,112,096,224,000,008,024,052,036,126,102 10022 DATA 198,192,252,038,034,060,044,038,098,227,063,126,068,112,248,195,223 10023 DATA 254,000,000,000,000,000,000,000,000,004,008,252,147,048,048,055,030 10024 DATA 062,127,119,231,231,238,254,124,000,000,000,000,000,000,000,000,031 10025 DATA 102,006,012,012,216,216,096,062,127,119,231,231,238,254,124,103,163 10026 DATA 035,099,099,231,239,123,126,254,194,096,030,067,127,126,004,008,252 10027 DATA 147,048,048,055,030,000,000,000,000,000,048,056,024,000,000,000,000 10028 DATA 000,048,056,024,000,000,000,000,000,048,056,024,000,000,000,000,000 10029 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 10030 DATA 000,000,248,000,000,070,000,000,033,000,000,016,128,000,127,224,000 10031 DATA 017,224,000,054,064,000,121,192,000,018,096,000,020,144,004,024,184 10032 DATA 012,031,023,252,002,248,230,006,097,255,028,002,024,228,012,004,199 10033 DATA 240,000,024,000,000,032,000,000,096,000,000,000,000,000,000,000,000 10034 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 10035 DATA 000,000,000,000,000,000,000,012,000,120,124,001,128,228,006,062,126 10036 DATA 004,125,159,014,067,064,023,063,240,036,012,048,068,014,080,228,002 10037 DATA 144,014,003,016,000,003,136,000,000,248,000,000,000,031,000,000,098 10038 DATA 000,000,132,000,001,008,000,007,254,000,007,136,000,002,108,000,003 10039 DATA 158,000,006,072,032,009,040,048,029,024,063,232,248,103,031,064,255 10040 DATA 134,056,024,064,039,032,048,035,000,015,208,000,000,008,000,000,012 10041 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 10042 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,048,000,000 10043 DATA 062,030,000,039,001,128,126,124,096,249,190,048,002,194,124,015,252 10044 DATA 230,012,048,034,010,112,051,009,064,024,008,192,024,017,192,000,031 10045 DATA 000,000,157,000 20000 DATA 173,014,149,208,003,032,153,151,173,015,149,208,003,032,195,151,173 20001 DATA 031,208,141,012,149,162,000,142,010,149,142,021,149,142,022,149,169 20002 DATA 002,141,008,149,169,001,141,011,149,169,003,141,018,149,032,179,149 20003 DATA 162,001,142,010,149,169,008,141,008,149,169,000,141,011,149,169,012 20004 DATA 141,018,149,169,004,141,021,149,169,002,141,022,149,032,179,149,096 20005 DATA 172,024,149,200,192,005,144,002,160,000,140,024,149,190,025,149,189 20006 DATA 152,007,201,218,208,027,165,143,010,010,056,101,143,133,143,201,040 20007 DATA 176,245,201,012,144,004,201,028,144,237,170,153,025,149,169,207,168 20008 DATA 200,152,157,152,007,174,021,149,189,001,208,174,010,149,201,049,176 20009 DATA 008,169,003,157,000,149,032,133,151,201,217,144,003,032,037,151,189 20010 DATA 000,220,041,012,201,008,208,003,032,009,151,201,004,208,003,032,023 20011 DATA 151,189,000,220,041,016,208,006,032,196,150,076,042,150,032,241,150 20012 DATA 173,030,208,041,010,201,010,208,003,032,037,151,173,012,149,045,008 20013 DATA 149,205,008,149,208,008,169,252,157,000,149,032,133,151,254,000,149 20014 DATA 189,000,149,174,021,149,125,001,208,157,001,208,157,003,208,174,010 20015 DATA 149,189,002,149,201,128,144,012,201,240,176,029,169,240,157,002,149 20016 DATA 076,134,150,201,016,144,005,169,016,157,002,149,024,032,171,150,144 20017 DATA 015,032,184,150,076,143,150,056,032,171,150,176,003,032,184,150,234 20018 DATA 234,234,174,021,149,157,002,208,174,010,149,096,157,192,219,232,224 20019 DATA 028,208,248,169,002,076,217,151,000,000,174,021,149,125,000,208,157 20020 DATA 000,208,174,010,149,096,168,173,018,149,077,016,208,141,016,208,152 20021 DATA 096,189,016,149,240,017,189,000,149,056,233,006,157,000,149,169,000 20022 DATA 157,016,149,169,129,141,004,212,169,128,141,004,212,169,224,125,004 20023 DATA 149,174,022,149,157,249,007,174,010,149,096,000,189,016,149,208,003 20024 DATA 222,016,149,169,223,125,004,149,174,022,149,157,249,007,174,010,149 20025 DATA 096,000,222,002,149,169,002,157,004,149,169,010,157,006,149,096,254 20026 DATA 002,149,169,000,157,004,149,169,245,157,006,149,096,032,175,151,173 20027 DATA 001,208,205,005,208,144,034,238,023,149,172,023,149,032,116,151,169 20028 DATA 252,045,016,208,141,016,208,169,000,141,001,208,141,000,149,141,002 20029 DATA 149,169,139,141,000,208,096,206,023,149,172,023,149,032,116,151,169 20030 DATA 243,045,016,208,141,016,208,169,000,141,005,208,141,001,149,141,003 20031 DATA 149,169,208,141,004,208,096,169,002,162,000,157,192,219,232,224,012 20032 DATA 208,248,169,009,076,156,150,169,048,141,013,212,169,000,141,014,149 20033 DATA 169,023,141,019,149,169,033,141,011,212,238,019,149,173,019,149,141 20034 DATA 008,212,201,028,208,008,169,032,141,011,212,206,014,149,096,169,250 20035 DATA 141,020,212,169,000,141,015,149,169,009,141,020,149,169,129,141,018 20036 DATA 212,206,020,149,173,020,149,141,015,212,201,004,208,008,169,128,141 20037 DATA 018,212,206,015,149,096,157,192,219,232,224,041,208,248,174,010,149 20038 DATA 169,001,153,192,219,096 30012 DATA 231,231,231,231,231,231,231,231,231,231,231,231,220 30013 DATA 220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220 30014 DATA 220,220,220,220,220,220,220,220,220,220,192,193,194,195,226,229,198 30025 DATA 223,200,201,202,203,231,231,231,231,231,231,231,231 30026 DATA 231,231,231,231,231,220,220,220,220,220,220,220,220,220,220,220,220 30027 DATA 220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,192,193 30028 DATA 194,195,228,227,198,223,200,201,202,203 30036 DATA 231,231,231,231,231,231,231,231,231,231,231,231,220,220 30037 DATA 220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220 30038 DATA 220,220,220,220,220,220,220,220,220,192,193,194,195,196,224,198,199 30049 DATA 200,201,202,203,231,231 30050 DATA 231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231 30051 DATA 231,231,231,231,231,220,220,220,220,220,220,220,220,220,220,220,220 30052 DATA 220,220,220,220,192,193,194,195,196,196,196,196,197,197,197,197,198 30053 DATA 198,198,198,199,199,199,199,200,201,202,203,220,220,220,220,220,220 30054 DATA 220,220,218,218,218,218,218,218,218,218,218,218,218,218,224,196,197 30055 DATA 198,199,228,225,227,196,197,226,229,198,205,199,198,218,218,218,218 30056 DATA 218,218,218,218,218,218,218,218,219,219,219,219,219,219,219,219,219 30057 DATA 219,219,219,205,222,223,197,204,221,205,222,228,227,222,205,204,220 30058 DATA 207,223,219,219,219,219,219,219,219,219,219,219,219,219